5 F=55296:B=1024:SI=54272:POKE53280,6:POKE53281,6
10 PRINT"[147]  USERSPIEL!!!!!!!!!!!!!!!!!"
11 PRINT"PROGRAMMIERT VON FRANK ZABBEE"
12 PRINT"LIEBE SPIELER!!!! BITTE DENKT"
13 PRINT"NICHT,  DASS DIESES SPIEL EIN"
14 PRINT"SPIEL MIT EXTREM GUTER GRAFIK"
15 PRINT"IST!!!!!!!!!!!!!! ES IST ABER SUPER GUT!!!!!!!!!!!!!!"
16 PRINT"VIELEN DANK IM VORAUS FUER EURE GLUECK- WUENSCHE ZU DIESEM SPIEL!!!"
17 PRINT"STECKE DIE MAUS ODER DEN JOYSTICK IN    PORT 2!!!"
18 PRINT"[140]DAS SPIEL WIRD IN 10 KNALLHARTEN RUN-   DEN GESPIELT."
19 PRINT"DER SPIELER HAT PRO RUNDE 3 SUPERGUTE   BAELLE DER MARKE REEBOK!!!"
20 PRINT"MIT DEM MAUS-BUTTON ODER DEM JOYSTICK-  BUTTON STARTEST DU DEN BALL!!!"
21 PRINT"KANNST DU DEN BALL LENKEN???"
25 INPUT"WIEVIELE SPIELER";WS$:WS=VAL(WS$):IFWS>10THENPRINT"BIS ZU 10 SPIELER!!":GOTO25
30 PRINT"[147]":FORNA=1TOWS
40 PRINT"NAME DES"NA". SPIELERS ";
50 INPUTNM$(NA):PRINT"[147]":IFLEN(NM$(NA))>7THENPRINT"BIS ZU 7 BUCHSTABEN!":GOTO40
60 NEXT NA
65 FORRZ=1TO10
70 FOR DG=1TOWS
90 PRINT"[147]"NM$(DG),TAB(10)RZ".LIEBE"
100 FOR RA=130TO810STEP40
110 POKE B+RA,106:POKEF+RA,1
120 POKE B+RA+10,117:POKEF+RA+10,1
130 NEXT RA
131 PRINT"":FORND=1TOWS:PRINTTAB(21)NM$(ND),EP(ND):NEXTND
140 POKEB+132,88 :POKEF+132,7
145 POKEB+134,88 :POKEF+134,7
150 POKEB+136,88 :POKEF+136,7
155 POKEB+138,88 :POKEF+138,7
160 POKEB+213,88 :POKEF+213,7
165 POKEB+215,88 :POKEF+215,7
170 POKEB+217,88 :POKEF+217,7
175 POKEB+294,88 :POKEF+294,7
180 POKEB+296,88 :POKEF+296,7
185 POKEB+375,88 :POKEF+375,7
190 FOR ZD=1TO3:P=0
192 X=1:A=1:BL=0
193 IF(PEEK(56320)AND16)=0THEN222
195 POKE 811+B+X,32
200 X=X+A:IFX=1ORX=7THENA=-A
210 POKE 811+B+X,81:POKE811+F+X,1
215 FOR T=1TO10:NEXTT
220 GOTO 193
222 POKESI+24,15:POKESI+5,25:POKESI+6,68
224 POKESI,69:POKESI+1,29:POKESI+4,17
229 FOR BB=811TO101 STEP-40
230 ZU=INT(RND(1)*3)
231 IF PEEK(BB+B+X)=88ANDZU=0THENPOKEBB+B+X-79,32
232 IF PEEK(BB+B+X)=88ANDZU=1THENPOKEBB+B+X-81,32
233 IF PEEK(BB+B+X)=88ANDZU=2THENPOKEBB+B+X-81,32:POKEBB+B+X-79,32
234 IF BL=1 THEN250
235 IF(PEEK(56320)AND8)=0THENX=X+0.5:IFX>8THENBL=1         
240 IF(PEEK(56320)AND4)=0THENX=X-0.5:IFX<1THENBL=1         
250 POKEBB+B+X,81:POKEBB+F+X,1
260 FORVZ=1TO20:NEXTVZ
270 POKEBB+B+X,32
280 NEXTBB:P=0
285 POKESI+4,0:POKESI+5,0:POKESI+6,0
286 IFPEEK(B+132)<>88THENP=P+1
287 IFPEEK(B+134)<>88 THENP=P+1
288 IFPEEK(B+136)<>88 THENP=P+1
289 IFPEEK(B+138)<>88 THENP=P+1
290 IFPEEK(B+213)<>88 THENP=P+1
291 IFPEEK(B+215)<>88 THENP=P+1
292 IFPEEK(B+217)<>88 THENP=P+1
293 IFPEEK(B+294)<>88 THENP=P+1
294 IFPEEK(B+296)<>88 THENP=P+1
295 IFPEEK(B+375)<>88 THENP=P+1
296 IFZD=1ANDP=10THENP=50:EP(DG)=EP(DG)+P:GOTO310
297 IFZD=2ANDP=10THENP=40:EP(DG)=EP(DG)+P:GOTO310
298 IFZD=3ANDP=10THENP=25:EP(DG)=EP(DG)+P:GOTO310
299 IFZD=3ANDP<>10THENEP(DG)=EP(DG)+P:GOTO310               
305 NEXTZD
310 NEXTDG
360 NEXTRZ
361 PRINT"":FORT=1TOWS:PRINTTAB(21)NM$(T),EP(T):NEXTT
370 PRINT"WOLLEN SIE NOCHMAL[<=N/J=>]?"
380 GETJ$:IFJ$<>"J"ANDJ$<>"N"THEN380
390 IFJ$="J"THEN RUN
400 PRINT"[147]":END